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-- LoadStateDefs.mesa 

-- Last Modified by Sandman, March 23, 1978 10:17 AM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AltoFileDeFs: FROM "altof iledef s" , 
ControlDefs: FROM "controldef s", 
SegmentDefs: FROM "segmentdef s"; 

LoadStateDefs: DEFINITIONS « 

BEGIN 

LoadState: TYPE ■ POINTER TO LoadStateObject; 

LoadStateObject: TYPE « MACHINE DEPENDENT RECORD [ 
beds: ARRAY [CMaxBcds) OF BcdAddressObject , 
gft: ARRAY [0..0) OF ConFigGFI]; 

LoadStateGFT: TYPE » DESCRIPTOR FOR ARRAY OF ConfigGFI; 

ConfigGFI: TYPE » RECORD [ 
config: Configlndex, 
gfi: GFTIndex]; 

GFTIndex: TYPE « ControlDefs .GFTIndex; 

Configlndex: TYPE » [0..177B]; 

ConfigNull: Configlndex = LAST[Conf iglndex] ; 

MaxBcds: CARDINAL » AltoDefs . PageSize/SIZE[BcdAddressOb ject] ; 

BcdArrayLength: CARDINAL = SIZE[BcdAddressObject]*MaxBcds; 

BcdAddress: TYPE » POINTER TO BcdAddressObject; 

BcdAddressObject: TYPE = MACHINE DEPENDENT RECORD [ 
fp: AltoFileDefs.FP, 
da: AUoFileDefs.vDA, 
base: CARDINAL, 
fill: [0..77B], 
unresolved, exports: BOOLEAN, 
pages: BcdPageCount]; 

BcdPageCount: TYPE - [1..256]; 

EnumerationDirection: TYPE ={recentf irst , recentlast} ; 
Relocation: TYPE « DESCRIPTOR FOR ARRAY OF GFTIndex; 
FileSegmentHandle: TYPE = SegmentDefs . FileSegmentHandle; 

MapConfigToReal : PROCEDURE [cgfi: GFTIndex, config: Configlndex] RETURNS [rgfi: GFTIndex]; 
MapRealToConfig: PROCEDURE [rgfi: GFTIndex] RETURNS [cgfi: GFTIndex. config: Configlndex]; 
EnterGfi: PROCEDURE [cgfi, rgfi: GFTIndex, config: Configlndex]; 

InitializeRelocation; PROCEDURE [config: Configlndex] RETURNS [rel: Relocation]; 
ReleaseRelocation: PROCEDURE [rel: Relocation]; 

InputLoadState: PROCEDURE RETURNS [nbcds: Configlndex]; 
UpdateLoadState: PROCEDURE [ 

bed: Configlndex, bcdseg: FileSegmentHandle, unresolved, exports: BOOLEAN]; 
RemoveConf ig: PROCEDURE [rel: Relocation, config: Configlndex]; 
LoadStateFull : ERROR; 
ReleaseLoadState: PROCEDURE; 

BcdSegFromLoadState: PROCEDURE [bed: Configlndex] RETURNS [bcdseg: FileSegmentHandle]; 
BcdHasUnresolvedlmports: PROCEDURE [bed: Configlndex] RETURNS [unresolved: BOOLEAN]; 
SetUnresolvedlmports: PROCEDURE [bed: Configlndex, unresolved: BOOLEAN]; 
BedHasExports: PROCEDURE [bed: Configlndex] RETURNS [exports: BOOLEAN]; 

EnumerateLoadStateGFT: PROCEDURE [ 
proc: PROCEDURE [rgfi: GFTIndex, cgfi: GFTIndex. config: Configlndex] RETURNS [BOOLEAN]] 
RETURNS [GFTIndex]; 
EnumerateLoadStateBcds: PROCEDURE [dir: EnumerationDirection. 
proc: PROCEDURE [Configlndex, BcdAddress] RETURNS [BOOLEAN]] 
RETURNS [config: Configlndex, bed: BcdAddress]; 
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GetlnitialLoadState: PROCEDURE RETURNS [initstateseg : FileSegmentHancne] ; 
GetLoadState: PROCEDURE RETURNS [stateseg: FiTeSegmentHandle]; 
SetLoadState: PROCEDURE [stateseg: FileSegmentHandle] ; 
ResetLoadState: PROCEDURE [initialGFT: LoadStateGFT] ; 
UpdateLoadStateDA: PROCEDURE [bcdseg: FileSegmentHandle]; 

END 



